object frmPermissaoEspecial: TfrmPermissaoEspecial
  Left = 328
  Top = 229
  AutoSize = True
  BorderStyle = bsSingle
  Caption = 'Permiss'#245'es para Fun'#231#245'es Espec'#237'ficas'
  ClientHeight = 241
  ClientWidth = 941
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  PrintScale = poNone
  Scaled = False
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 941
    Height = 241
    Align = alClient
    TabOrder = 0
    object Panel3: TPanel
      Left = 400
      Top = 1
      Width = 540
      Height = 239
      Align = alRight
      TabOrder = 1
      object DBGrid1: TDBGrid
        Left = 1
        Top = 1
        Width = 538
        Height = 237
        Align = alClient
        DataSource = DtSrc
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'CAPTION'
            Title.Caption = 'MENU'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'FUNCAO'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'PE_USUARIOS'
            Title.Caption = 'USUARIO'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'PE_GRUPOS'
            Title.Caption = 'GRUPO'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'PE_PERMITE'
            Title.Caption = 'PERMITE'
            Visible = True
          end>
      end
    end
    object Panel4: TPanel
      Left = 1
      Top = 1
      Width = 400
      Height = 239
      Align = alLeft
      TabOrder = 0
      DesignSize = (
        400
        239)
      object Label1: TLabel
        Left = 2
        Top = 144
        Width = 48
        Height = 16
        Caption = 'Usu'#225'rio:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object Label2: TLabel
        Left = 3
        Top = 176
        Width = 39
        Height = 16
        Caption = 'Grupo:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object DBGrid2: TDBGrid
        Left = -1
        Top = 0
        Width = 401
        Height = 137
        DataSource = DSLista
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'MEN_CAPTION'
            Title.Caption = 'MENU'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'FP_DESCRICAO'
            Title.Caption = 'FUNCAO'
            Visible = True
          end>
      end
      object cbPermite: TCheckBox
        Left = 7
        Top = 208
        Width = 81
        Height = 17
        Anchors = [akTop, akRight]
        Caption = 'Permitir'
        TabOrder = 3
      end
      object btnPermitir: TButton
        Left = 199
        Top = 205
        Width = 107
        Height = 25
        Anchors = [akTop, akRight]
        Caption = 'Adicionar Permiss'#227'o'
        TabOrder = 4
        OnClick = btnPermitirClick
      end
      object dblcUser: TDBLookupComboBox
        Left = 56
        Top = 144
        Width = 337
        Height = 21
        KeyField = 'USU_CODIGO'
        ListField = 'USU_NOME'
        ListSource = DSUser
        TabOrder = 1
      end
      object dblcGroup: TDBLookupComboBox
        Left = 56
        Top = 176
        Width = 337
        Height = 21
        KeyField = 'GRU_CODIGO'
        ListField = 'GRU_DESCRICAO'
        ListSource = DSGroup
        TabOrder = 2
      end
      object BitBtnCancelar: TBitBtn
        Left = 317
        Top = 205
        Width = 75
        Height = 25
        Anchors = [akTop, akRight]
        Caption = 'Sair'
        TabOrder = 5
        OnClick = BitBtnCancelarClick
        Kind = bkAbort
      end
    end
  end
  object DtSrc: TDataSource
    DataSet = SQLC_Permissoes
    Left = 448
    Top = 176
  end
  object SQLC_Permissoes: TSQLClientDataSet
    CommandText = 'SELECT * FROM PERMISSOES_ESPECIAIS'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <>
    DBConnection = DtmGeral.ConexaoBanco
    Left = 496
    Top = 168
    object SQLC_PermissoesPE_CODIGO: TIntegerField
      FieldName = 'PE_CODIGO'
      Required = True
    end
    object SQLC_PermissoesPE_USUARIOS: TStringField
      FieldName = 'PE_USUARIOS'
      Size = 3
    end
    object SQLC_PermissoesPE_PERMITE: TStringField
      FieldName = 'PE_PERMITE'
      Required = True
      Size = 1
    end
    object SQLC_PermissoesPE_GRUPOS: TIntegerField
      FieldName = 'PE_GRUPOS'
    end
    object SQLC_PermissoesPE_FUNCAO: TIntegerField
      FieldName = 'PE_FUNCAO'
    end
    object SQLC_PermissoesPE_MENU: TIntegerField
      FieldName = 'PE_MENU'
      Required = True
    end
    object SQLC_PermissoesCAPTION: TStringField
      DisplayWidth = 30
      FieldKind = fkLookup
      FieldName = 'CAPTION'
      LookupDataSet = SQLC_Lista
      LookupKeyFields = 'MEN_CODIGO'
      LookupResultField = 'MEN_CAPTION'
      KeyFields = 'PE_MENU'
      ReadOnly = True
      Size = 30
      Lookup = True
    end
    object SQLC_PermissoesFUNCAO: TStringField
      FieldKind = fkLookup
      FieldName = 'FUNCAO'
      LookupDataSet = SQLC_Lista
      LookupKeyFields = 'FP_CODIGO'
      LookupResultField = 'FP_DESCRICAO'
      KeyFields = 'PE_FUNCAO'
      Lookup = True
    end
  end
  object DSUser: TDataSource
    DataSet = SQLC_Usuarios
    Left = 144
    Top = 144
  end
  object DSGroup: TDataSource
    DataSet = SQLC_Grupos
    Left = 136
    Top = 184
  end
  object SQLC_Usuarios: TSQLClientDataSet
    CommandText = 'SELECT USU_CODIGO, USU_NOME FROM USUARIOS'#13#10'ORDER BY USU_NOME'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <>
    DBConnection = DtmGeral.ConexaoBanco
    Left = 168
    Top = 144
    object SQLC_UsuariosUSU_CODIGO: TStringField
      FieldName = 'USU_CODIGO'
      Required = True
      Size = 3
    end
    object SQLC_UsuariosUSU_NOME: TStringField
      FieldName = 'USU_NOME'
      Required = True
      Size = 60
    end
  end
  object SQLC_Grupos: TSQLClientDataSet
    CommandText = 
      'SELECT GRU_CODIGO, GRU_DESCRICAO FROM GRUPOS'#13#10'ORDER BY GRU_DESCR' +
      'ICAO'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <>
    DBConnection = DtmGeral.ConexaoBanco
    Left = 160
    Top = 184
    object SQLC_GruposGRU_CODIGO: TIntegerField
      FieldName = 'GRU_CODIGO'
      Required = True
    end
    object SQLC_GruposGRU_DESCRICAO: TStringField
      FieldName = 'GRU_DESCRICAO'
      Required = True
      Size = 30
    end
  end
  object SQLC_Lista: TSQLClientDataSet
    Active = True
    CommandText = 
      'SELECT M.MEN_CAPTION, M.MEN_CODIGO, F.*'#13#10'FROM FUNCOES_PERMISSAO ' +
      'F'#13#10'INNER JOIN MENUS M ON (F.FP_MENU=M.MEN_CODIGO)'#13#10
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <>
    ReadOnly = True
    AfterScroll = SQLC_ListaAfterScroll
    DBConnection = DtmGeral.ConexaoBanco
    Left = 296
    Top = 96
    object SQLC_ListaMEN_CAPTION: TStringField
      DisplayWidth = 30
      FieldName = 'MEN_CAPTION'
      Required = True
      Size = 50
    end
    object SQLC_ListaMEN_CODIGO: TIntegerField
      FieldName = 'MEN_CODIGO'
      Required = True
    end
    object SQLC_ListaFP_CODIGO: TIntegerField
      FieldName = 'FP_CODIGO'
      Required = True
    end
    object SQLC_ListaFP_DESCRICAO: TStringField
      DisplayWidth = 25
      FieldName = 'FP_DESCRICAO'
      Required = True
      Size = 30
    end
    object SQLC_ListaFP_MENU: TIntegerField
      FieldName = 'FP_MENU'
      Required = True
    end
  end
  object DSLista: TDataSource
    DataSet = SQLC_Lista
    Left = 264
    Top = 96
  end
end
